home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / business / misc / fwmacros2 / draw_box < prev    next >
Text File  |  1994-10-04  |  670b  |  27 lines
  1. /* ======================================== */
  2. /*  FINAL WRITER AREXX MACRO                */
  3. /*    by Nigel S. Domaingue, 28/1/95        */
  4. /*  Draw_Box                                */
  5. /*  $Ver:  Draw_Box v1.0 (30/1/95)          */
  6. /* ======================================== */
  7.  
  8. Options Results
  9.  
  10. /* Must determine the current page and the current */
  11. /* scroll-position so that the box will be placed  */
  12. /* in the field of view.                           */
  13. /* Draws a 1"x 1" box.                             */
  14.  
  15. Status Page
  16. CurPage = Result
  17.  
  18. Status ScrollPos
  19. Parse VAR Result Left Top
  20. Top = Top + 1
  21. Left = Left + 1
  22.  
  23. GraphicTool
  24. DrawBox CurPage Left Top 1 1
  25. Redraw
  26.  
  27.